home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 32 / Mac Magazin and MacEasy Magazine CD - Issue 32.iso / Service / Leserecke / Detlef Kahner / CF-Erfassungsprogramm / Make it english... / stack_-1.xml < prev    next >
Extensible Markup Language  |  1997-03-05  |  8KB  |  24 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.</name>
  5.     <id>-1</id>
  6.     <cardCount>5</cardCount>
  7.     <cardID>2850</cardID>
  8.     <listID>4158</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on doitpush cardput cd fld "About-Text" into tmpgo card id 2857 of stack "CF.Erfassungsprogramm" -- 1.put cd fld ID 6 into ver -- Version of CF.Erfassungsprogrammif ver <> "v 1.1" thenFalseVersiondomenu homeexit to HyperCardend ifput"18 x ¬¥*¬¥:  " into msgWaitset the script of stack "CF.Erfassungsprogramm" to emptyset the script of cd btn ID 4 to tmpput "Classified Advertisements with disk to the ¬¥Computer Flohmarkt¬¥:" ¬¨into bg fld ID 1set the rect of bg fld ID 1 to 20,3,489,39put "The stack to register Classified Advertisements for the ¬¥Computer Flohmarkt¬¥" ¬¨into cd fld ID 1put "¬© 1996/97 Detlef Kahner, Germany. ShareWare, $20." into ¬¨cd fld ID 3Waitpop card -- go back to "Make it english..." without Ask "Where is..."go recent cardgo card ID 2850 of stack "Make it english..."put cd fld ID 2 into tmpgo card ID 4395 of stack "CF.Erfassungsprogramm" -- 2.put tmp into cd fld ID 2go card ID 3832 of stack "Make it english..."put cd fld ID 1 into tmpwaitgo card ID 4113 of stack "CF.Erfassungsprogramm"put tmp into cd fld ID 1go card ID 3832 of stack "Make it english..."put cd fld ID 2 into tmpgo card ID 4066 -- of stack "Make it english"put cd fld ID 3 into Exportscriptgo card ID 4800 of stack "CF.Erfassungsprogramm"put tmp into cd fld ID 1Wait-- small annonce bg -- Kleinanzeigengo first card of stack "Make it english..."put cd fld "About-Text" into tmpput cd fld ID 6 into Anzartengo card ID 2972put cd fld ID 2 into bgscriptgo card ID 3832put cd fld ID 3 into Rubrikscriptgo cd id 2324put cd fld ID 5 into DelAdvertScriptgo card id 2108 of stack "CF.Erfassungsprogramm"put Anzarten into bg fld "Anzeigenarten"set the script of bg btn ID 52 to Rubrikscriptset the script of bg ID 3588 to bgscriptset the script of bg btn ID 26 to Exportscriptset the script of bg btn ID 1 to tmpset the name of bg btn ID 27 to "First"set the name of bg btn ID 53 to "About"set the name of bg btn ID 29 to "Help"set the name of bg btn ID 31 to "Last"Waitset the name of bg btn ID 49 to "Quit"set the name of bg btn "Suche" to "Request"set the name of bg btn "Kleinanzeigen" to "Cl. Advert¬¥s"set the name of bg btn "Biete" to "Offer"set the name of bg btn "Neue Anzeige" to "New Advert¬¥"set the name of bg btn "√ºbernehmen" to "take over"set the name of bg btn "Diese Anzeige L√ñSCHEN" ¬¨to "DELETE this Advert¬¥"set the script of bg btn "DELETE this Advert¬¥" to DelAdvertScriptWaitdomenu backgroundput "of" into bg fld ID 20put "¬© 1996/97 Detlef Kahner, Germany. ShareWare, $20." into bg fld ID 32put "with ¬¥Option¬¥: delete only text" into bg fld ID 59domenu background -- back to foregroundWait-- Offer BG -- Bietego first card of stack "Make it english..."put cd fld "About-Text" into tmpgo card ID 4066 -- of stack "Make it english"put cd fld ID 4 into exportscriptgo card ID 2072put cd fld ID 3 into bgscriptgo card id 6165 of stack "CF.Erfassungsprogramm"set the script of bg btn ID 3 to tmpset the script of bg btn ID 8 to exportscriptset the script of bg ID 6058 to bgscriptset the name of bg btn ID 51 to "First"set the name of bg btn ID 2 to "About"set the name of bg btn ID 78 to "Help"set the name of bg btn ID 53 to "Last"Waitset the name of bg btn ID 79 to "Quit"set the name of bg btn "Suche" to "Request"set the name of bg btn "Kleinanzeigen" to "Cl. Advert¬¥s"set the name of bg btn "Biete" to "Offer"set the name of bg btn "Neue Anzeige" to "New Advert¬¥"set the name of bg btn "√ºbernehmen" to "take over"set the name of bg btn "Diese Anzeige L√ñSCHEN" ¬¨to "DELETE this Advert¬¥"Waitput "platform:" into bg fld ID 11put "head rubric:" into bg fld ID 12put "sub rubric:" into bg fld ID 13put "product name:" into bg fld ID 14put "note:" into bg fld ID 15put "Manufacturer:" into bg fld ID 16put "OS:" into bg fld ID 17Waitput "Language:" into bg fld ID 18put "kind of disk:" into bg fld ID 19put "kind of software:" into bg fld ID 20put "state:" into bg fld ID 21put "cost:" into bg fld ID 22put "kind of price:" into bg fld ID 23put "Offers:" into bg fld ID 81Wait-- Request BG -- Suchego first card of stack "Make it english..."put cd fld "About-Text" into tmpgo card ID 4066 -- of stack "Make it english..."put cd fld ID 5 into exportscriptgo card ID 2072put cd fld ID 4 into bgscriptgo card id 8637 of stack "CF.Erfassungsprogramm"set the script of bg btn ID 3 to tmpset the script of bg btn ID 4 to exportscriptset the script of bg ID 8379 to bgscriptset the name of bg btn ID 9 to "First"set the name of bg btn ID 10 to "About"set the name of bg btn ID 11 to "Help"set the name of bg btn ID 14 to "Last"Waitset the name of bg btn ID 15 to "Quit"set the name of bg btn "Suche" to "Request"set the name of bg btn "Kleinanzeigen" to "Cl. Advert¬¥s"set the name of bg btn "Biete" to "Offer"set the name of bg btn "Neue Anzeige" to "New Advert¬¥"set the name of bg btn "√ºbernehmen" to "take over"set the name of bg btn "Diese Anzeige L√ñSCHEN" ¬¨to "DELETE this Advert¬¥"Waitput "platform:" into bg fld ID 36put "head rubric:" into bg fld ID 37put "sub rubric:" into bg fld ID 38put "product name:" into bg fld ID 39put "note:" into bg fld ID 40put "Manufacturer:" into bg fld ID 41put "OS:" into bg fld ID 42Waitput "Language:" into bg fld ID 43put "kind of disk:" into bg fld ID 44put "kind of software:" into bg fld ID 45put "state:" into bg fld ID 46put "cost:" into bg fld ID 47put "kind of price:" into bg fld ID 48put "Requests:" into bg fld ID 64Waitgo card ID 7696put "first name:" into cd fld ID 6put "street:" into cd fld ID 11put "country:" into cd fld 13put "postal code:" into cd fld ID 15put "place:" into cd fld ID 17Waitput "telephone:" into cd fld ID 19put "note:" into cd fld ID 21put "font definition:" into cd fld ID 27put "magazine:" into cd fld ID 29put "specify with ¬¥/¬¥!" into cd fld ID 34set the name of cd btn ID 32 to "delete variables"go card ID 2324 of stack "Make it english..."put cd fld ID 1 into Text1put cd fld ID 2 into Text2put cd fld ID 3 into Text3go card ID 4874 of stack "CF.Erfassungsprogramm"put Text1 into cd fld ID 2go card ID 5789 of stack "CF.Erfassungsprogramm"put Text2 into cd fld ID 1go card ID 7188 of stack "CF.Erfassungsprogramm"put Text3 into cd fld ID 1Waitgo card ID 2072 of stack "Make it english..."put cd fld ID 1 into stacscriptset the script of stack "CF.Erfassungsprogramm" to stacscriptset the name of stack "CF.Erfassungsprogramm" to ¬¨"CF.Register program"Waitplay boing f g chanswer "Ready with translation!     Go..." ¬¨with "Home" or "CF prog¬¥"if it is "Home" then domenu homeif it is "CF prog¬¥" then go stack "CF.Register program"end doiton FalseVersionanswer "This is not the right version (1.1) of the stack" ¬¨&& "CF.Erfassungsprogramm."end FalseVersionon Waitput "*" after msgend Wait</script>
  17.     <background id="2808" file="background_2808.xml" name="" />
  18.     <card id="2850" file="card_2850.xml" marked="false" name="" owner="2808" />
  19.     <card id="4066" file="card_4066.xml" marked="false" name="" owner="2808" />
  20.     <card id="3832" file="card_3832.xml" marked="false" name="" owner="2808" />
  21.     <card id="2072" file="card_2072.xml" marked="false" name="" owner="2808" />
  22.     <card id="2324" file="card_2324.xml" marked="false" name="" owner="2808" />
  23. </stack>
  24.